home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / maxon-demo / maxonsigmath_2.2 / install-sigmath-demo < prev    next >
Text File  |  1995-09-13  |  5KB  |  251 lines
  1. ; $VER: SIGMAth Install Version 1 (9.8.93)
  2. ; Script zum Installieren von SIGMAth
  3. ; 
  4.  
  5. ; ===================================================================
  6. ; die benötigten Zeichenketten
  7. ; ===================================================================
  8.  
  9. (set HiThere
  10.     (cat
  11.         "Willkommen zum Installationsprogramm von \"SIGMAth 2.2\" !\n\n"
  12.         "Dieses Programm wird einige Dateien auf Ihre Datenträger kopieren. "
  13.         "Dazu ist es unbedingt nötig, daß Sie Ihren Amiga von dem "
  14.         "Datenträger gestartet (man sagt auch: gebootet) haben, von dem "
  15.         "Sie auch starten werden, wenn Sie SIGMAth beutzen möchten.\n"
  16.         "Falls dies nicht der Fall sein sollte, starten Sie Ihren Rechner "
  17.         "bitte neu."
  18.     )
  19. )
  20.  
  21. (set SelectDestDir
  22.         "Bitte wählen Sie das Zielverzeichnis"
  23. )
  24. (set SelectDestDirHelp
  25.     (cat
  26.         "Wählen Sie zunächst den Datenträger bzw. die Partition, "
  27.         "auf den SIGMAth installiert werden soll. Falls Sie möchten, können "
  28.         "Sie dann für SIGMAth eine eigene Schublade anlegen. Wie das geht, "
  29.         "erfahren Sie weiter unten. Drücken Sie zum Schluß auf WEITER "
  30.         "(englisch: PROCEED) um mit dem Kopieren der Programme zu "
  31.         "beginnen.\n\n"
  32.     )
  33. )
  34.  
  35. (set TstAmiga    "Prüfe die Hardwarekonfiguration...")
  36.  
  37. (set InstallCoMsg
  38.     (cat
  39.         "Ihr Amiga erfüllt die Voraussetzungen, die nötig sind, um "
  40.         "die Programmversion \"SIGMAth.CO\" laufen zu lassen. "
  41.     )
  42. )
  43. (set InstallNormMsg
  44.     (cat
  45.         "Auf Ihrem Amiga wird die Programmversion für einen math. Coprozessor nicht "
  46.         "arbeiten. Daher wird das Standardprogramm installiert."
  47.     )
  48. )
  49.  
  50. (set UnPack    "Entpacke einige Dateien...")
  51.  
  52. (set AskARexx "Sollen die ARexx-Beispielprogramme installiert werden?")
  53. (set HelpAskARexx
  54.     (cat
  55.         "Falls Sie ARexx benutzen, können die Beispielprogramme "
  56.         "eine Große Hilfe sein, um die Programmierung von SIGMAth zu "
  57.         "erlernen. Darüberhinaus demonstrieren die Programme die "
  58.         "graphischen Fähigkeiten von SIGMAth."
  59.     )
  60. )
  61.  
  62. (set InstallEnd
  63.     (cat
  64.         "SIGMAth ist jetzt installiert. Bitte lesen Sie vor der "
  65.         "Benutzung des Programmes unbedingt die Datei "
  66.         "\"Bitte_zuerst_lesen\". SIGMAth wurde in der letzten Zeit "
  67.         "massiv erweitert und verbessert. \"Bitte_zuerst_lesen\" sagt "
  68.         "Ihnen, was sich gegenüber der im Handbuch beschriebenen "
  69.         "Programmversion geändert hat. "
  70.     )
  71. )
  72.  
  73. (set ChangeToolTypes "Bearbeite die Pictogramme.")
  74.  
  75.  
  76. ;====================================================================
  77. ;Das Programm
  78. ;====================================================================
  79.  
  80. ;
  81. ; Dem Benutzer "Guten Tag" sagen.
  82. ;
  83. (message HiThere)
  84. (Welcome)
  85.  
  86. ;
  87. ; Verzeichnis wählen, in das SIGMAth installiert werden soll
  88. ;
  89. (set @default-dest
  90.     (tackon @default-dest "SIGMAth")
  91. )
  92. (set
  93.     @default-dest
  94.     (askdir
  95.         (disk)
  96.         (prompt    SelectDestDir) 
  97.         (help        SelectDestDirHelp @askdir-help)
  98.         (newpath)
  99.         (default @default-dest)
  100.     )
  101. )
  102. (makedir
  103.     @default-dest
  104.     (infos)
  105. )
  106.  
  107. (makedir "ram:InstallTemp")
  108. (set ArcString "ram:InstallTemp/lhx -E -I x ram:InstallTemp/SIGMAth.LHA #? ram:InstallTemp/")
  109.  
  110. ;
  111. ; Mit der Arbeit beginnen...
  112. ;
  113. (copyfiles
  114.     (prompt    "")
  115.     (help        @copyfiles-help)
  116.     (source    "C/LHX")
  117.     (dest        "ram:InstallTemp")
  118. )
  119. (copyfiles
  120.     (prompt    "")
  121.     (help        @copyfiles-help)
  122.     (source    "LIBS/arp.library")
  123.     (dest        "ram:InstallTemp")
  124. )
  125.  
  126. (copyfiles
  127.     (prompt    "")
  128.     (help        @copyfiles-help)
  129.     (dest      "ram:InstallTemp/")
  130.     (pattern    "SIGMAth.lha")
  131.     (source    "")
  132. )
  133.  
  134. (set @execute-dir "ram:InstallTemp")
  135. (working UnPack)
  136. (run    ArcString)
  137. (copyfiles
  138.     (prompt    "")
  139.     (help        @copyfiles-help)
  140.     (source    "ram:InstallTemp/")
  141.     (pattern    "SIGMAth#?")
  142.     (dest        @default-dest)
  143. )
  144. (run "delete ram:InstallTemp/SIG#?")
  145. (copyfiles
  146.     (prompt    "")
  147.     (help        @copyfiles-help)
  148.     (source    "SIGMAthResc.RCT")
  149.     (dest        @default-dest)
  150. )
  151. (copyfiles
  152.     (prompt    "")
  153.     (help        @copyfiles-help)
  154.     (source    "SIGMAth.EST")
  155.     (dest        @default-dest)
  156. )
  157. (copylib
  158.     (prompt    "")
  159.     (help        @copyfiles-help)
  160.     (source    "LIBS/rct.library")
  161.     (dest        "LIBS:")
  162. )
  163.  
  164. (copyfiles
  165.     (prompt    "")
  166.     (help        @copyfiles-help)
  167.     (source    "")
  168.     (pattern    "Dem#?")
  169.     (dest        @default-dest)
  170. )
  171. (copyfiles
  172.     (prompt    "")
  173.     (help        @copyfiles-help)
  174.     (source    "")
  175.     (pattern    "Bitte#?")
  176.     (dest        @default-dest)
  177. )
  178. (copyfiles
  179.     (prompt    "")
  180.     (help        @copyfiles-help)
  181.     (source    "")
  182.     (pattern    "Beispiel#?")
  183.     (dest        @default-dest)
  184. )
  185. (copyfiles
  186.     (prompt    "")
  187.     (help        @copyfiles-help)
  188.     (source    "")
  189.     (pattern    "INHAL#?")
  190.     (dest        @default-dest)
  191. )
  192. (copyfiles
  193.     (prompt    "")
  194.     (help        @copyfiles-help)
  195.     (source    "")
  196.     (pattern    "Vektor#?")
  197.     (dest        @default-dest)
  198. )
  199.  
  200.  
  201. ; Icons kopieren
  202.  
  203. (makedir
  204.     (tackon @default-dest "Icons")
  205.     (infos)
  206. )
  207. (copyfiles
  208.     (prompt    "")
  209.     (help        @copyfiles-help)
  210.     (source    "Icons")
  211.     (pattern    "#?")
  212.     (dest        (tackon @default-dest "Icons"))
  213. )
  214. (foreach (tackon @default-dest "Icons") ("#?")
  215.     (tooltype
  216.         (prompt    "")
  217.         (help        "")
  218.         (dest        (tackon (tackon @default-dest "Icons") (@each-name)))
  219.         (setdefaulttool    (tackon @default-dest "SIGMAth"))
  220.         (noposition)
  221.         (swapcolors)
  222.     )
  223. )
  224. (foreach (@default-dest) ("#?")
  225.     (tooltype
  226.         (prompt    "")
  227.         (help        "")
  228.         (dest        (tackon (@default-dest) (@each-name)))
  229.         (noposition)
  230.         (swapcolors)
  231.     )
  232. )
  233.  
  234. (working UnPack)
  235. (delete "ram:InstallTemp/lhx")
  236. (delete "ram:InstallTemp/ProcessorFlag")
  237. (set @execute-dir "ram:")
  238. (run "delete ram:InstallTemp all")
  239. (copyfiles
  240.     (prompt    "")
  241.     (help        @copyfiles-help)
  242.     (source    "muchmore")
  243.     (dest        @default-dest)
  244. )
  245.  
  246. ;
  247. ; Programm beenden
  248. ;
  249. (exit InstallEnd)
  250.  
  251.